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MODULE EDFSTRUCT; 
is EDFSTRUCT = Structure definitions for EDIT/FDOL 
/* Version *v04-000" 


| 
| 
| 
| 
® 
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/* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
/* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
/* ALL RIGHTS URESERVED. 


a] 
& 
® 
® 
® 
/* THIS SOFTWARE I$ FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED ®* 
/* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
js INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
/* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
7* OTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTUARE 1S HEREGY = 
/* TRANSFERRED. * 
® 
/* THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE * 
/* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
/* CORPORATION. . 
& 
® 
we 
® 
® 
® 


/* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
/* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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a ABSTRACT: 

pe This file contains the SDL source for EDIT/FDL (EDF). 
ENVIRONMENT: 

/* n/a 

/t 

[too 

/* 

/e 

a AUTHOR: Ken Henderson CREATION DATE: Sep-1982 

ie MODIFIED BY: 

/* v03-003 are yg Ken Henderson 8 Sep 1983 
= Fixed *',"’ in constant List. 

/* v03-002 KFHO002 Ken Henderson 26 Apr 1983 
we My offsets for ADD_KEY, DELETE_KEY 

/e 

/* v03-001 KFHOO001 Ken Hendersen 14 Apr 1983 
/* Added offsets for SET _FUNCTI 

/* GRANULARITY, PROMPTING, RESPONSES, 
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fs ANALYSIS, SEGMENTED and OUTPUT. ’ ” 

oe Non-QTAB offsets, for variables that don't correspond to questions. 

/** They should be orderred: IDATA, BDATA, RDATA, SDATA types. 

/** (NON-STORAGE) means an identifier just generates a constant, 

/** but will have an array location - which is never accessed. 

{ee 

ae xxx HIGH identifiers MUST immediately follow the xxx_LOW identifiers!!! 

/** IDATA OFFSETS FOLLOW 
#MARKO 


CONSTANT ( 


= 0; 


/** (NON-STORAGE) 
/** (NON-STORAGE) 


) EQUALS #MARKO 

INCREMENT 1 

PREFIX “EDFS*’ 

COUNTER #MARK1; 
/** BDATA OFFSETS FOLLOW 
CONSTANT ( 

**DUMMY*’ 

) EQUALS #MARK1+1 

INCREMENT 1 

PREFIX “‘EDFS"* 

COUNTER #MARK2; 
/** RDATA OFFSETS FOLLOW 
CONSTANT ( 


“ADDED FILL", 
“LOAD FILL” 


) EQUALS #MARK2+1 
INCREREN 
PREFIX “EDFS" 
COUNTER #MARK3S; 
/** SDATA OFFSETS FOLLOW 
CONSTANT ( 
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“PLACE HOLDER” 
) Hoy #MARK3+1 
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COUNTER #MARK4; 
QTAB equivalent offsets that correspond to actual questions 
/** They should be orderred SDATA, RDATA, BDATA, IDATA types 
/** SDATA OFFSETS FOLLOW 
CONSTANT ( 

ai a 

‘KEY NAME'', 


"ANALYSIS", 
"OUTPUT" 


) EQUALS #MARK4+1 
ME 


COUNTER #MARKS; 

/** RDATA OFFSETS FOLLOW 

CONSTANT ( 
"DATA_KEY_COMP"’, 
“DATA-RECORD. COMP'', 
"*INDER_RECORD_ COMP” 
) EQUALS #MARKS+1 
INCREMENT 1 
PREFIX "EDFS" 
COUNTER #MARK6; 

/** BDATA OFFSETS FOLLOW 


CONSTANT ( 


“CONF IRM’ /** FUNCTION 


“"RETORN'’ /** FUNCTION 
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| COUNTER #MARK7; 3 


CONSTANT “EDF SK _RDATASTART™ EQUALS #MARK2+1; 


177 
17 
"3 /** IDATA OFFSETS FOLLOW 
181 CONSTANT ( ; 
18¢ ; 
18 “CLUSTER SIZE", ; 
184 ACTIVE REY", ; 
185 ADDED_COUNT”, ; 
1 ADDED-COUNT_LOw"',, : 
18 "ADDED" COUNT HIGH”, ; 
188 “BLOCKS_IN BOCKET"’, 
189 BUCKET-WETGHT', ; 
190 "CARR CTRL" /** QUALIFIER TYPE : 
191 ‘ "CONTROL _S1ZE"’ ; 
198 "CURRENT FUNCTION", : 
19 DESIGN CYCLE", : 
194 “DESIRED FILL, : 
195 “FILL_LOO", ; 
196 “FILLTHIGH™, ; 
197 GLOBAL COUNT’, ; 
198 GRANULARITY" 
199 “INITIAL_COUNT’, 
200 INITIAL~COUNT_LOW'', 
201 "INITIAL COUNT_—HIGH™ 
208 "KEY_POSTTION'S 
20 KEY-LOW 
204 "KEY-HIGH™, 
205 "KEY-SIZE", 
06 "*KEY-TYPE /** QUALIFIER TYPE 
207 ‘ "LOAD _METHOD'’ 
208 "MAX RECORD SIZE", 
209 "MEAN RECORD, SIZE“, 
210 ER_DUPS™, 
211 “"NUMBER-KEYS'', 
212 "'NUMBER™RECORDS"' /** SYNONYM FOR INITIAL COUNT 
213 ‘ “PROLOGUE VERSION", 
214 ROMPTING'’, 
215 "RECORD FORMAT" /* QUALIFIER TYPE 
216 ; “RESPONSES” 
217 ; "SCRIPT OPTION", 
218 "SET FUNCTION’, 
18 "SIZE _LOW',, 
20 "SIZE HIGH 
21 "SURFACE OPTION", 
$2¢ “TEST PRIMARY’, 
: ‘TEST- SECONDARY", 
4 “*TEST-SECONDARY_VALUE"* 
$8 ) EQUALS #MARK7+1 | 
37 INCREMENT 1 
8 PREFIX "EDFS" 
$5 COUNTER #MARK8; 
1 /** Array boundaries definitions | 
| 
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38 CONSTANT “EDF $K_SDATASTART" EQUALS #MARK3+1; | 
s CONSTANT “EDF SK-SDATAEND' EQUALS #MARKS; | 
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7 /** Load-method 
CONSTANT 


“EDF SK_RDATAEND" 


“EDF SK_BDATASTART"’ 
$K-BDATAEND"’ 


“EDF 

“EDF SK_IDATASTART" 
“EDF SK-IDATAEND"’ 
“EDF SK_VDATASTART"’ 
“EDF SK_-VDATAEND'’ 
“EDF 
"ED 


$K_QTABSTART"’ 
FSK-QTABEND"’ 


( 

"REPLACE OBJ", 
"IGNORE OBJ", 
“AF TER_OBJ" 


) EQUALS 0 
INCREMENT 1 
PREFIX '"'; 


/** Where definitions 


( 


"IF FULL PROMPT"’, 
“LO LOBER.A AREA", 


RARE yh 
) EQUALS 0 


INCREMENT 1 
PREFIX '"’; 


/** Bucket-weight definitions 


( 


rE 
INCREMENT 
PREF IX Mors"; 


definitions 
( 


EQUALS 


EQUALS 
EQUALS 


EQUALS 
EQUALS 


EQUALS 


EQUALS #MARKS 


EQUALS 


#MARKG; 


MMARK141; 
#MARK7; 


MMARKO; 
#MARKE; 


MMARKS+1; 


MMARKS+1; 


EQUALS #MARK8 


/** Insert_object collison-action definitions 


ARK8; 
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PREFIX ‘‘EDFS"'; 
/** Surface-option definitions 
CONSTANT ( 


oo 
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SURFACE’ 
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/** Current-function definitions 
CONSTANT ( 


~ 


) EQUALS 0 
INCREMENT 1 
PREFIX ‘‘EDFS"'; 
/** Set_function definition 
CONSTANT ( 
| 


WA. A AAA AW 
WANNA nm 
FUN=SSS 


uw 


“SET"SCRIPT"' 
SET TEMPLATE" 


) EQUALS 0 
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INCREMENT 1 


PREFIX “‘EDFS"'; 
2) /** Responses definitions 

38 CONS 1 ANT ( 

54 is Es 

3 ‘ee 


08 
409 
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) EQUALS 0, 
INCREMENT 1 
PREFIX “'EDFS"; 


/** Prompting definitions 


CONSTANT 


/** Granularity 
CONSTANT 


( 


FULL", 
“BRIEF” 


Bi: z rs 
INCREME 
PREF IX Mors"; 


definitions 


) EQUALS 0, 
INCREMENT 
PREF IX Mors"; 


/** Script-option definitions 


CONSTANT 


( 


/** Yes-No definitions 


CONSTANT 


( 


“YES” 


IWEREAEN 1) 
INCREME 
PREF IX Mos"; 


/** Answer-class definitions 
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"B00 tEAN ANSY wer", 
“AE TGERD ANSE 
NO ANSUERS 
“OBJECT_ANSWER" 
) EQUALS 0 
INCREMENT 1 
PREFIX '"' TAG ‘"’; 
/** Equivalences for Design-cycle definitions 
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CONSTANT ( 
“STRING 6 ANSWER’. 
REAL . 
CONSTANT “EDF SK_: +e EQUALS ‘‘EDFSK_MEAN_RECORD_SIZE"’: 
CONSTANT EDESKE EQUALS ‘‘EDFSK-KEY_SIZE"'; 
CONSTANT “EDF SK_ pe EQUALS ‘‘EDFSK_KEY POSITION’; 
CONSTANT “EDF SK_IL* “EDF SK_INITIAL_COUNT''; 
CONSTANT "EDF $K_BF*’ EQUALS ‘‘EDFSK-DESIRED FILL"; 
CONSTANT “EDF SK_EM"’ EQUALS ‘‘EDFSK-BUCKET_QEIGHT''; 

9 CONSTANT “EDFSK_RF" EQUALS "EDFSK-RECORD-FORMAT'’: 
440 CONSTANT “EDFSK_RC"’ EQUALS "EDFS$KDATA_RECORD COMP"; 
441 CONSTANT “EDFSK_KC"' EQUALS ‘‘EDFSK_DATA_KEY_COMP"’; 

44 CONSTANT “EDF SK_DK"’ EQUALS "‘EDFSK_KEY_ Bups”; 
443 CONSTANT “EDF SK_LM"" EQUALS “EDF SK “(OAS METHOD"; 
444 CONSTANT “EDF SK_ “EDF SK_ADDED_C a 
445 CONSTANT “EDFSK_IC'’ EQUALS “‘EDFSK_ INDEX =RECORD_ COMP"; 
44 CONSTANT “EDF SK_WP"’ QUALS ‘EDF SK~ er o 
44 CONSTANT "EDF SK_FINIS" EQUALS “‘EDFSK_F FINA DESIGN" 
448 CONSTANT “EDFSK_Py"’ EQUALS ‘‘EDFSK “PROLOGUE nVERS LOW’ 
ro 4 CONSTANT “EDFSK =v" EQUALS ‘EDFSK-KEY_TYPE™ 
$2) = The following are used to interface to the EDFSGRAPH Boe, 
re CONSTANT ( 
454 
455 LINE 
45 ° SRF INCREASING 
$3 , SRF-DECREASING 
$22 ) EQUALS 0 INCREMENT 1 PREFIX “EDFS'' TAG "'C''; 
oe) CONSTANT ( 
4 BACKGROUND_COLOR 
15-SEP-1984 23:00:51.12 SDL _V2.0 Page 4 
. 13-Sep-1984 33:08:85 +395 $$0UA28: CEDF .SRCJEDFSTRUCT. SDL >! 
7 LIGHT_GREEN 
468 ) EQUALS 0 INCREMENT 1 PREFIX “EDFS"' TAG "'C"’; 
4 END_MODULE EDF STRUCT; 
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